home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 3.iso / bin / getFreePortNumber < prev    next >
Encoding:
Text File  |  1996-11-11  |  423 b   |  17 lines
  1. #!/bin/perl
  2. $startPortNum = $ARGV[0];
  3. die "You must supply a starting port number\n" unless $startPortNum;
  4. @out = `/usr/etc/netstat -a | grep LISTEN`;
  5. $i = -1;
  6. foreach (@out) {
  7.     next unless /^tcp\s+\S+\s+\S+\s+\S+\.(\d+)\s+/;
  8.     next if $1 < $startPortNum;
  9.     $ports[++$i] = $1;
  10. }
  11. --$startPortNum if $i >= 0;
  12. foreach (sort bynumber @ports) {
  13.     last if ++$startPortNum != $_;
  14. }
  15. print "$startPortNum\n";
  16. sub bynumber {$a <=> $b;}
  17.